home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / comm / irc / KuangEleven3Gm.lha / Kuang Eleven 3 / Rexx / Shutdown.amirx < prev    next >
Text File  |  1998-05-19  |  720b  |  29 lines
  1. /*$VER: Shutdown.amirx 3.1 (19.5.98) Kuang Eleven v3 Shutdown for AmIRC 1.22+
  2. */
  3. port=address()
  4. address REXX
  5. if ~show('L','rexxsupport.library') then addlib('rexxsupport.library',0,-30,0)
  6. do until ~show('P',port)
  7.     call delay(25)
  8. end
  9. if pos('AMIRC',show('P'))~==0 then exit
  10.  
  11. putlst=getclip('sc_copyscripts')
  12. delist=''
  13. if putlst~='' then do until putlst=''
  14.     parse var putlst scr putlst
  15.     delist=delist 'T:'scr
  16. end
  17. address command 'delete T:#?.XDC T:Kuang11.amirx'delist 'FORCE QUIET'
  18.  
  19. x=show('C')
  20. do i=1 to words(x)
  21.     y=word(x,i)
  22.     z=substr(y,1,3)
  23.     if z='sc_'|z='st_' then call setclip(y)
  24. end
  25. if show('P','KUANGPORT') then address KUANGPORT 'endprog()'
  26. if show('P','KUANG') then address KUANGPORT 'quit'
  27. call KuangLibExit()
  28.  
  29.